home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / textual / tex / files / !tex / mfinputs / slant / mf next >
Encoding:
Text File  |  1988-02-26  |  984 b   |  34 lines
  1. % This is SLANT.MF in text format, as of Mar 31, 1986.
  2. % more-or-less general slant font generator for GFtoDVI
  3.  
  4. % the calling file should set the font_identifier and
  5. %    n = number of characters
  6. %    s = slant ratio
  7. %    r# = rule thickness (in sharp units)
  8. %    u = vertical unit (in pixels)
  9.  
  10. if unknown mag: mag := 1;
  11. elseif (mag<1) or (mag<>floor mag):
  12.  errmessage "Sorry, mag must be a positive integer"; mag := 1; fi
  13.  
  14. mg := mag; mag := 1; mode_setup; u# := u*72.27/pixels_per_inch;
  15. pixels_per_inch := pixels_per_inch*mg; fix_units;
  16.  
  17. define_whole_pixels(u); define_blacker_pixels(r);
  18. pickup pencircle scaled r; ruler := savepen;
  19.  
  20. for k=1 upto n:
  21.  beginchar(k,k*u#*s,n*u#,0);
  22.  pickup ruler; draw origin--(k*u*s,k*u);
  23.  unfill (lft-1,bot -1)--(rt 1,bot -1)
  24.   --(rt 1,0)--(lft-1,0)--cycle;
  25.  unfill ((lft -1,0)--(rt 1,0)
  26.   --(rt 1,top 1)--(lft -1,top 1)--cycle) shifted (k*u*s,k*u);
  27.  endchar; endfor
  28.  
  29. font_size 16pt#;
  30. font_slant s;
  31. fontdimen 8: r#;
  32. font_coding_scheme "GFSLANT";
  33. bye.
  34.